weight_types <- function(abstention_ratios=NULL){
  # User must provide abstention_ratios in list form
  # Create a list of type weights using loops
  type_weights <- list()  
  # Initialize the type weight vector with the abstention ratios
  voter_type <- c("Uniform", "Type1", "Type2")
  abstention_rates <- c(0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1.0)
  
  # create type weights
  for(type in voter_type) {
    for(ratio in abstention_ratios){
      for(rate in abstention_rates) {
        type_weights[[length(type_weights) + 1]] <- create_type_weights(type, ratio, rate)
      }
    } 
  }
  return(type_weights)
}
